home *** CD-ROM | disk | FTP | other *** search
/ Magnum One / Magnum One (Mid-American Digital) (Disc Manufacturing).iso / d12 / v10n08.arc / BKP.PRG < prev    next >
Text File  |  1991-04-05  |  778b  |  32 lines
  1. *
  2. * Name          BKP.PRG
  3. *
  4. CLEAR
  5. crlf = "CHR(13) + CHR(10)"
  6. DO MainWork
  7. RETURN
  8.  
  9. PROCEDURE MainWork
  10.   STORE DTOC(DATE()) to today
  11.   DO FileWork WITH today
  12. RETURN
  13.  
  14. PROCEDURE FileWork
  15.    ************************************************
  16.    * Creates a batch file for backing up          *
  17.    ************************************************
  18.    PARAMETERS date
  19.    str1 = "XCOPY C:\SAS\*.* F:\SAS /D:"+date
  20.    str2 = "XCOPY C:\SAS\PRT\*.* F:\SAS\PRT /D:"+date
  21.    str3 = "XCOPY C:\SAS\AL\*.* F:\SAS\AL\ /D:"+date
  22.    DO WHILE .T.
  23.       buffer = "@echo off"+&crlf+str1+&crlf+str2+&crlf+str3+&crlf+CHR(26)
  24.       fhandle = FCREATE("c:\bakkup.bat",0)
  25.  
  26.       bytesret = FWRITE(fhandle, buffer)
  27.       result = FCLOSE(fhandle)
  28.       exit
  29.    ENDDO
  30. RETURN
  31. * eof
  32.